BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Util / Cn-Cz / Commodore 64 v0.4.sit / Commodore 64 v0.4 / SOURCE / Serial.c < prev next >
MacBinary | 1994-05-01 | 4.9 KB | [TEXT/KAHL]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Serial.c
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sun May 1 17:35:51 1994, modified Sun May 1 17:35:51 1994, creator Think C, type ASCII, 4479 bytes "Serial.c" , at 0x11ff 300 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[KAHL]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 53 65 72 69 61 6c | 2e 63 00 00 00 00 00 00 |..Serial|.c......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 11 7f 00 | 00 01 2c a9 e9 d1 37 a9 |........|..,...7.|
|00000060| e9 d1 37 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..7.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0c a3 00 00 |........|........|
|00000080| 2f 2a 0d 20 20 20 20 43 | 6f 6d 6d 6f 64 6f 72 65 |/*.    C|ommodore|
|00000090| 20 36 34 20 45 6d 75 6c | 61 74 6f 72 20 76 30 2e | 64 Emul|ator v0.|
|000000a0| 34 20 20 20 20 20 20 45 | 61 72 6c 65 20 46 2e 20 |4      E|arle F. |
|000000b0| 50 68 69 6c 68 6f 77 65 | 72 20 49 49 49 20 0d 20 |Philhowe|r III . |
|000000c0| 20 20 20 43 6f 70 79 72 | 69 67 68 74 20 28 43 29 |   Copyr|ight (C)|
|000000d0| 20 31 39 39 33 2d 34 20 | 20 20 20 20 20 20 20 20 | 1993-4 |        |
|000000e0| 20 20 20 28 73 74 39 31 | 36 77 39 72 40 64 75 6e |   (st91|6w9r@dun|
|000000f0| 78 31 2e 6f 63 73 2e 64 | 72 65 78 65 6c 2e 65 64 |x1.ocs.d|rexel.ed|
|00000100| 75 29 0d 0d 20 20 20 20 | 54 68 69 73 20 70 72 6f |u)..    |This pro|
|00000110| 67 72 61 6d 20 69 73 20 | 66 72 65 65 20 73 6f 66 |gram is |free sof|
|00000120| 74 77 61 72 65 3b 20 79 | 6f 75 20 63 61 6e 20 72 |tware; y|ou can r|
|00000130| 65 64 69 73 74 72 69 62 | 75 74 65 20 69 74 20 61 |edistrib|ute it a|
|00000140| 6e 64 2f 6f 72 20 6d 6f | 64 69 66 79 0d 20 20 20 |nd/or mo|dify.   |
|00000150| 20 69 74 20 75 6e 64 65 | 72 20 74 68 65 20 74 65 | it unde|r the te|
|00000160| 72 6d 73 20 6f 66 20 74 | 68 65 20 47 4e 55 20 47 |rms of t|he GNU G|
|00000170| 65 6e 65 72 61 6c 20 50 | 75 62 6c 69 63 20 4c 69 |eneral P|ublic Li|
|00000180| 63 65 6e 73 65 20 61 73 | 20 70 75 62 6c 69 73 68 |cense as| publish|
|00000190| 65 64 20 62 79 0d 20 20 | 20 20 74 68 65 20 46 72 |ed by.  |  the Fr|
|000001a0| 65 65 20 53 6f 66 74 77 | 61 72 65 20 46 6f 75 6e |ee Softw|are Foun|
|000001b0| 64 61 74 69 6f 6e 3b 20 | 65 69 74 68 65 72 20 76 |dation; |either v|
|000001c0| 65 72 73 69 6f 6e 20 32 | 20 6f 66 20 74 68 65 20 |ersion 2| of the |
|000001d0| 4c 69 63 65 6e 73 65 2c | 20 6f 72 0d 20 20 20 20 |License,| or.    |
|000001e0| 28 61 74 20 79 6f 75 72 | 20 6f 70 74 69 6f 6e 29 |(at your| option)|
|000001f0| 20 61 6e 79 20 6c 61 74 | 65 72 20 76 65 72 73 69 | any lat|er versi|
|00000200| 6f 6e 2e 0d 0d 20 20 20 | 20 54 68 69 73 20 70 72 |on...   | This pr|
|00000210| 6f 67 72 61 6d 20 69 73 | 20 64 69 73 74 72 69 62 |ogram is| distrib|
|00000220| 75 74 65 64 20 69 6e 20 | 74 68 65 20 68 6f 70 65 |uted in |the hope|
|00000230| 20 74 68 61 74 20 69 74 | 20 77 69 6c 6c 20 62 65 | that it| will be|
|00000240| 20 75 73 65 66 75 6c 2c | 0d 20 20 20 20 62 75 74 | useful,|.    but|
|00000250| 20 57 49 54 48 4f 55 54 | 20 41 4e 59 20 57 41 52 | WITHOUT| ANY WAR|
|00000260| 52 41 4e 54 59 3b 20 77 | 69 74 68 6f 75 74 20 65 |RANTY; w|ithout e|
|00000270| 76 65 6e 20 74 68 65 20 | 69 6d 70 6c 69 65 64 20 |ven the |implied |
|00000280| 77 61 72 72 61 6e 74 79 | 20 6f 66 0d 20 20 20 20 |warranty| of.    |
|00000290| 4d 45 52 43 48 41 4e 54 | 41 42 49 4c 49 54 59 20 |MERCHANT|ABILITY |
|000002a0| 6f 72 20 46 49 54 4e 45 | 53 53 20 46 4f 52 20 41 |or FITNE|SS FOR A|
|000002b0| 20 50 41 52 54 49 43 55 | 4c 41 52 20 50 55 52 50 | PARTICU|LAR PURP|
|000002c0| 4f 53 45 2e 20 20 53 65 | 65 20 74 68 65 0d 20 20 |OSE.  Se|e the.  |
|000002d0| 20 20 47 4e 55 20 47 65 | 6e 65 72 61 6c 20 50 75 |  GNU Ge|neral Pu|
|000002e0| 62 6c 69 63 20 4c 69 63 | 65 6e 73 65 20 66 6f 72 |blic Lic|ense for|
|000002f0| 20 6d 6f 72 65 20 64 65 | 74 61 69 6c 73 2e 0d 0d | more de|tails...|
|00000300| 20 20 20 20 59 6f 75 20 | 73 68 6f 75 6c 64 20 68 |    You |should h|
|00000310| 61 76 65 20 72 65 63 65 | 69 76 65 64 20 61 20 63 |ave rece|ived a c|
|00000320| 6f 70 79 20 6f 66 20 74 | 68 65 20 47 4e 55 20 47 |opy of t|he GNU G|
|00000330| 65 6e 65 72 61 6c 20 50 | 75 62 6c 69 63 20 4c 69 |eneral P|ublic Li|
|00000340| 63 65 6e 73 65 0d 20 20 | 20 20 61 6c 6f 6e 67 20 |cense.  |  along |
|00000350| 77 69 74 68 20 74 68 69 | 73 20 70 72 6f 67 72 61 |with thi|s progra|
|00000360| 6d 3b 20 69 66 20 6e 6f | 74 2c 20 77 72 69 74 65 |m; if no|t, write|
|00000370| 20 74 6f 20 74 68 65 20 | 46 72 65 65 20 53 6f 66 | to the |Free Sof|
|00000380| 74 77 61 72 65 0d 20 20 | 20 20 46 6f 75 6e 64 61 |tware.  |  Founda|
|00000390| 74 69 6f 6e 2c 20 49 6e | 63 2e 2c 20 36 37 35 20 |tion, In|c., 675 |
|000003a0| 4d 61 73 73 20 41 76 65 | 2c 20 43 61 6d 62 72 69 |Mass Ave|, Cambri|
|000003b0| 64 67 65 2c 20 4d 41 20 | 30 32 31 33 39 2c 20 55 |dge, MA |02139, U|
|000003c0| 53 41 2e 0d 2a 2f 0d 0d | 23 69 6e 63 6c 75 64 65 |SA..*/..|#include|
|000003d0| 20 22 50 72 6f 63 65 73 | 73 6f 72 2e 68 22 0d 23 | "Proces|sor.h".#|
|000003e0| 69 6e 63 6c 75 64 65 20 | 22 54 72 61 70 73 2e 68 |include |"Traps.h|
|000003f0| 22 0d 23 69 6e 63 6c 75 | 64 65 20 22 53 65 72 69 |".#inclu|de "Seri|
|00000400| 61 6c 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |al.h".#i|nclude "|
|00000410| 45 72 72 6f 72 2e 68 22 | 0d 0d 74 79 70 65 64 65 |Error.h"|..typede|
|00000420| 66 20 73 74 72 75 63 74 | 0d 7b 0d 20 20 20 20 62 |f struct|.{.    b|
|00000430| 79 74 65 20 69 6e 75 73 | 65 20 20 3a 20 31 3b 0d |yte inus|e  : 1;.|
|00000440| 20 20 20 20 62 79 74 65 | 20 69 73 6f 70 65 6e 20 |    byte| isopen |
|00000450| 3a 20 31 3b 0d 20 20 20 | 20 62 79 74 65 20 28 2a |: 1;.   | byte (*|
|00000460| 67 65 74 66 29 28 62 79 | 74 65 20 2a 2c 20 69 6e |getf)(by|te *, in|
|00000470| 74 29 3b 0d 20 20 20 20 | 62 79 74 65 20 28 2a 70 |t);.    |byte (*p|
|00000480| 75 74 66 29 28 62 79 74 | 65 2c 20 69 6e 74 29 3b |utf)(byt|e, int);|
|00000490| 0d 20 20 20 20 62 79 74 | 65 20 28 2a 6f 70 65 6e |.    byt|e (*open|
|000004a0| 66 29 28 63 68 61 72 20 | 2a 2c 20 69 6e 74 2c 20 |f)(char |*, int, |
|000004b0| 69 6e 74 29 3b 0d 20 20 | 20 20 62 79 74 65 20 28 |int);.  |  byte (|
|000004c0| 2a 63 6c 6f 73 65 66 29 | 28 69 6e 74 29 3b 0d 20 |*closef)|(int);. |
|000004d0| 20 20 20 76 6f 69 64 20 | 28 2a 66 6c 75 73 68 66 |   void |(*flushf|
|000004e0| 29 28 69 6e 74 29 3b 0d | 7d 20 53 65 72 69 61 6c |)(int);.|} Serial|
|000004f0| 54 79 70 65 3b 0d 73 74 | 61 74 69 63 20 53 65 72 |Type;.st|atic Ser|
|00000500| 69 61 6c 54 79 70 65 20 | 64 65 76 69 63 65 5b 31 |ialType |device[1|
|00000510| 36 5d 3b 0d 0d 23 64 65 | 66 69 6e 65 20 42 55 46 |6];..#de|fine BUF|
|00000520| 46 45 52 4c 45 4e 20 31 | 32 37 0d 73 74 61 74 69 |FERLEN 1|27.stati|
|00000530| 63 20 62 79 74 65 20 73 | 65 72 69 61 6c 42 75 66 |c byte s|erialBuf|
|00000540| 66 65 72 5b 42 55 46 46 | 45 52 4c 45 4e 5d 3b 0d |fer[BUFF|ERLEN];.|
|00000550| 0d 73 74 61 74 69 63 20 | 62 79 74 65 20 73 65 72 |.static |byte ser|
|00000560| 69 61 6c 50 74 72 2c 20 | 6c 61 74 65 73 74 4c 69 |ialPtr, |latestLi|
|00000570| 73 74 65 6e 2c 20 74 72 | 61 70 4c 69 73 74 65 6e |sten, tr|apListen|
|00000580| 2c 20 6c 61 74 65 73 74 | 53 61 4c 69 73 74 65 6e |, latest|SaListen|
|00000590| 3b 0d 0d 73 74 61 74 69 | 63 20 76 6f 69 64 20 53 |;..stati|c void S|
|000005a0| 65 72 69 61 6c 53 65 6e | 64 42 79 74 65 28 76 6f |erialSen|dByte(vo|
|000005b0| 69 64 29 2c 20 53 65 72 | 69 61 6c 52 65 63 69 65 |id), Ser|ialRecie|
|000005c0| 76 65 42 79 74 65 28 76 | 6f 69 64 29 2c 20 53 65 |veByte(v|oid), Se|
|000005d0| 72 69 61 6c 4c 69 73 74 | 65 6e 28 76 6f 69 64 29 |rialList|en(void)|
|000005e0| 2c 0d 09 09 09 53 65 72 | 69 61 6c 53 61 4c 69 73 |,....Ser|ialSaLis|
|000005f0| 74 65 6e 28 76 6f 69 64 | 29 2c 20 46 6c 6f 70 70 |ten(void|), Flopp|
|00000600| 79 52 65 61 64 79 54 72 | 61 70 28 76 6f 69 64 29 |yReadyTr|ap(void)|
|00000610| 3b 0d 73 74 61 74 69 63 | 20 62 79 74 65 20 53 65 |;.static| byte Se|
|00000620| 72 69 61 6c 44 75 6d 6d | 79 28 76 6f 69 64 29 3b |rialDumm|y(void);|
|00000630| 0d 0d 73 74 61 74 69 63 | 20 74 72 61 70 20 73 65 |..static| trap se|
|00000640| 72 69 61 6c 54 72 61 70 | 5b 5d 20 3d 0d 7b 0d 09 |rialTrap|[] =.{..|
|00000650| 7b 20 30 78 65 64 34 30 | 2c 20 7b 30 78 37 38 2c |{ 0xed40|, {0x78,|
|00000660| 20 30 78 32 30 2c 20 30 | 78 39 37 7d 2c 20 53 65 | 0x20, 0|x97}, Se|
|00000670| 72 69 61 6c 53 65 6e 64 | 42 79 74 65 20 7d 2c 0d |rialSend|Byte },.|
|00000680| 09 7b 20 30 78 65 65 31 | 33 2c 20 7b 30 78 37 38 |.{ 0xee1|3, {0x78|
|00000690| 2c 20 30 78 61 39 2c 20 | 30 78 30 30 7d 2c 20 53 |, 0xa9, |0x00}, S|
|000006a0| 65 72 69 61 6c 52 65 63 | 69 65 76 65 42 79 74 65 |erialRec|ieveByte|
|000006b0| 20 7d 2c 0d 09 7b 20 30 | 78 65 64 30 65 2c 20 7b | },..{ 0|xed0e, {|
|000006c0| 30 78 32 30 2c 20 30 78 | 61 34 2c 20 30 78 66 30 |0x20, 0x|a4, 0xf0|
|000006d0| 7d 2c 20 53 65 72 69 61 | 6c 4c 69 73 74 65 6e 20 |}, Seria|lListen |
|000006e0| 7d 2c 0d 09 7b 20 30 78 | 65 64 33 36 2c 20 7b 30 |},..{ 0x|ed36, {0|
|000006f0| 78 37 38 2c 20 30 78 32 | 30 2c 20 30 78 38 65 7d |x78, 0x2|0, 0x8e}|
|00000700| 2c 20 53 65 72 69 61 6c | 53 61 4c 69 73 74 65 6e |, Serial|SaListen|
|00000710| 20 7d 2c 0d 09 7b 20 30 | 78 65 65 61 39 2c 20 7b | },..{ 0|xeea9, {|
|00000720| 30 78 61 64 2c 20 30 78 | 30 30 2c 20 30 78 64 64 |0xad, 0x|00, 0xdd|
|00000730| 7d 2c 20 46 6c 6f 70 70 | 79 52 65 61 64 79 54 72 |}, Flopp|yReadyTr|
|00000740| 61 70 20 7d 0d 7d 3b 0d | 0d 69 6e 74 20 53 65 72 |ap }.};.|.int Ser|
|00000750| 69 61 6c 49 6e 69 74 69 | 61 6c 69 7a 65 28 76 6f |ialIniti|alize(vo|
|00000760| 69 64 29 0d 7b 0d 20 20 | 20 20 62 79 74 65 20 69 |id).{.  |  byte i|
|00000770| 3b 0d 09 53 65 72 69 61 | 6c 54 79 70 65 20 2a 70 |;..Seria|lType *p|
|00000780| 3b 0d 09 0d 09 41 64 64 | 54 72 61 70 28 73 65 72 |;....Add|Trap(ser|
|00000790| 69 61 6c 54 72 61 70 5b | 30 5d 29 3b 0d 09 41 64 |ialTrap[|0]);..Ad|
|000007a0| 64 54 72 61 70 28 73 65 | 72 69 61 6c 54 72 61 70 |dTrap(se|rialTrap|
|000007b0| 5b 31 5d 29 3b 0d 09 41 | 64 64 54 72 61 70 28 73 |[1]);..A|ddTrap(s|
|000007c0| 65 72 69 61 6c 54 72 61 | 70 5b 32 5d 29 3b 0d 09 |erialTra|p[2]);..|
|000007d0| 41 64 64 54 72 61 70 28 | 73 65 72 69 61 6c 54 72 |AddTrap(|serialTr|
|000007e0| 61 70 5b 33 5d 29 3b 0d | 09 41 64 64 54 72 61 70 |ap[3]);.|.AddTrap|
|000007f0| 28 73 65 72 69 61 6c 54 | 72 61 70 5b 34 5d 29 3b |(serialT|rap[4]);|
|00000800| 0d 0d 20 20 20 20 66 6f | 72 20 28 69 20 3d 20 30 |..    fo|r (i = 0|
|00000810| 3b 20 69 20 3c 20 31 36 | 3b 20 69 2b 2b 29 20 7b |; i < 16|; i++) {|
|00000820| 0d 09 09 70 3d 26 64 65 | 76 69 63 65 5b 69 5d 3b |...p=&de|vice[i];|
|00000830| 0d 09 09 70 2d 3e 67 65 | 74 66 3d 28 62 79 74 65 |...p->ge|tf=(byte|
|00000840| 20 28 2a 29 28 62 79 74 | 65 20 2a 2c 20 69 6e 74 | (*)(byt|e *, int|
|00000850| 20 29 29 53 65 72 69 61 | 6c 44 75 6d 6d 79 3b 0d | ))Seria|lDummy;.|
|00000860| 09 09 70 2d 3e 70 75 74 | 66 3d 28 62 79 74 65 20 |..p->put|f=(byte |
|00000870| 28 2a 29 28 62 79 74 65 | 2c 20 69 6e 74 20 29 29 |(*)(byte|, int ))|
|00000880| 53 65 72 69 61 6c 44 75 | 6d 6d 79 3b 0d 09 09 70 |SerialDu|mmy;...p|
|00000890| 2d 3e 6f 70 65 6e 66 3d | 28 62 79 74 65 20 28 2a |->openf=|(byte (*|
|000008a0| 29 28 63 68 61 72 20 2a | 2c 20 69 6e 74 20 2c 20 |)(char *|, int , |
|000008b0| 69 6e 74 20 29 29 53 65 | 72 69 61 6c 44 75 6d 6d |int ))Se|rialDumm|
|000008c0| 79 3b 0d 09 09 70 2d 3e | 63 6c 6f 73 65 66 3d 28 |y;...p->|closef=(|
|000008d0| 62 79 74 65 20 28 2a 29 | 28 69 6e 74 20 29 29 53 |byte (*)|(int ))S|
|000008e0| 65 72 69 61 6c 44 75 6d | 6d 79 3b 0d 09 09 70 2d |erialDum|my;...p-|
|000008f0| 3e 66 6c 75 73 68 66 3d | 28 76 6f 69 64 20 28 2a |>flushf=|(void (*|
|00000900| 29 28 69 6e 74 20 29 29 | 4e 55 4c 4c 3b 20 7d 0d |)(int ))|NULL; }.|
|00000910| 09 0d 09 72 65 74 75 72 | 6e 20 6b 4e 6f 45 72 72 |...retur|n kNoErr|
|00000920| 6f 72 3b 0d 7d 0d 0d 76 | 6f 69 64 20 41 64 64 53 |or;.}..v|oid AddS|
|00000930| 65 72 69 61 6c 44 65 76 | 69 63 65 28 69 6e 74 20 |erialDev|ice(int |
|00000940| 64 65 76 6e 75 6d 2c 20 | 62 79 74 65 20 28 2a 67 |devnum, |byte (*g|
|00000950| 65 74 66 29 28 62 79 74 | 65 20 2a 2c 20 69 6e 74 |etf)(byt|e *, int|
|00000960| 29 2c 0d 09 62 79 74 65 | 20 28 2a 70 75 74 66 29 |),..byte| (*putf)|
|00000970| 28 62 79 74 65 2c 20 69 | 6e 74 29 2c 20 62 79 74 |(byte, i|nt), byt|
|00000980| 65 20 28 2a 6f 70 65 6e | 66 29 28 63 68 61 72 20 |e (*open|f)(char |
|00000990| 2a 2c 20 69 6e 74 2c 20 | 69 6e 74 29 2c 0d 09 62 |*, int, |int),..b|
|000009a0| 79 74 65 20 28 2a 63 6c | 6f 73 65 66 29 28 69 6e |yte (*cl|osef)(in|
|000009b0| 74 29 2c 20 76 6f 69 64 | 20 28 2a 66 6c 75 73 68 |t), void| (*flush|
|000009c0| 66 29 28 69 6e 74 29 29 | 0d 7b 0d 20 20 20 20 53 |f)(int))|.{.    S|
|000009d0| 65 72 69 61 6c 54 79 70 | 65 20 2a 70 3b 0d 0d 20 |erialTyp|e *p;.. |
|000009e0| 20 20 20 69 66 20 28 28 | 64 65 76 6e 75 6d 3c 30 |   if ((|devnum<0|
|000009f0| 29 7c 7c 28 64 65 76 6e | 75 6d 3e 31 35 29 29 20 |)||(devn|um>15)) |
|00000a00| 49 6e 74 65 72 6e 61 6c | 45 72 72 6f 72 28 6b 49 |Internal|Error(kI|
|00000a10| 6e 76 61 6c 69 64 44 65 | 76 69 63 65 4e 75 6d 62 |nvalidDe|viceNumb|
|00000a20| 65 72 29 3b 0d 20 20 20 | 20 70 3d 26 64 65 76 69 |er);.   | p=&devi|
|00000a30| 63 65 5b 64 65 76 6e 75 | 6d 5d 3b 0d 09 69 66 20 |ce[devnu|m];..if |
|00000a40| 28 70 2d 3e 69 6e 75 73 | 65 21 3d 30 29 20 49 6e |(p->inus|e!=0) In|
|00000a50| 74 65 72 6e 61 6c 45 72 | 72 6f 72 28 6b 44 65 76 |ternalEr|ror(kDev|
|00000a60| 69 63 65 4e 75 6d 62 65 | 72 49 6e 55 73 65 29 3b |iceNumbe|rInUse);|
|00000a70| 0d 0d 20 20 20 20 70 2d | 3e 67 65 74 66 20 3d 20 |..    p-|>getf = |
|00000a80| 67 65 74 66 3b 0d 20 20 | 20 20 70 2d 3e 70 75 74 |getf;.  |  p->put|
|00000a90| 66 20 3d 20 70 75 74 66 | 3b 0d 20 20 20 20 70 2d |f = putf|;.    p-|
|00000aa0| 3e 6f 70 65 6e 66 20 3d | 20 6f 70 65 6e 66 3b 0d |>openf =| openf;.|
|00000ab0| 20 20 20 20 70 2d 3e 63 | 6c 6f 73 65 66 20 3d 20 |    p->c|losef = |
|00000ac0| 63 6c 6f 73 65 66 3b 0d | 20 20 20 20 70 2d 3e 66 |closef;.|    p->f|
|00000ad0| 6c 75 73 68 66 20 3d 20 | 66 6c 75 73 68 66 3b 0d |lushf = |flushf;.|
|00000ae0| 20 20 20 20 70 2d 3e 69 | 6e 75 73 65 20 3d 20 31 |    p->i|nuse = 1|
|00000af0| 3b 0d 7d 0d 0d 0d 73 74 | 61 74 69 63 20 76 6f 69 |;.}...st|atic voi|
|00000b00| 64 20 53 65 72 69 61 6c | 53 65 6e 64 42 79 74 65 |d Serial|SendByte|
|00000b10| 28 76 6f 69 64 29 0d 7b | 0d 20 20 20 20 62 79 74 |(void).{|.    byt|
|00000b20| 65 20 64 61 74 61 3b 0d | 20 20 20 20 53 65 72 69 |e data;.|    Seri|
|00000b30| 61 6c 54 79 70 65 20 2a | 70 3b 0d 09 65 78 74 65 |alType *|p;..exte|
|00000b40| 72 6e 20 76 6f 69 64 20 | 69 36 30 28 76 6f 69 64 |rn void |i60(void|
|00000b50| 29 3b 0d 0d 20 20 20 20 | 64 61 74 61 3d 52 41 4d |);..    |data=RAM|
|00000b60| 5b 30 78 39 35 5d 3b 0d | 20 20 20 20 70 3d 26 64 |[0x95];.|    p=&d|
|00000b70| 65 76 69 63 65 5b 6c 61 | 74 65 73 74 4c 69 73 74 |evice[la|testList|
|00000b80| 65 6e 26 30 78 30 66 5d | 3b 0d 0d 20 20 20 20 69 |en&0x0f]|;..    i|
|00000b90| 66 20 28 70 2d 3e 69 73 | 6f 70 65 6e 3d 3d 30 29 |f (p->is|open==0)|
|00000ba0| 20 7b 0d 09 09 69 66 20 | 28 73 65 72 69 61 6c 50 | {...if |(serialP|
|00000bb0| 74 72 3c 42 55 46 46 45 | 52 4c 45 4e 29 20 73 65 |tr<BUFFE|RLEN) se|
|00000bc0| 72 69 61 6c 42 75 66 66 | 65 72 5b 73 65 72 69 61 |rialBuff|er[seria|
|00000bd0| 6c 50 74 72 2b 2b 5d 20 | 3d 20 64 61 74 61 3b 20 |lPtr++] |= data; |
|00000be0| 7d 0d 20 20 20 20 65 6c | 73 65 20 28 2a 70 2d 3e |}.    el|se (*p->|
|00000bf0| 70 75 74 66 29 28 64 61 | 74 61 2c 20 6c 61 74 65 |putf)(da|ta, late|
|00000c00| 73 74 53 61 4c 69 73 74 | 65 6e 20 26 20 30 78 30 |stSaList|en & 0x0|
|00000c10| 66 29 3b 0d 09 69 36 30 | 28 29 3b 09 2f 2a 20 52 |f);..i60|();./* R|
|00000c20| 54 53 20 2a 2f 0d 7d 0d | 0d 73 74 61 74 69 63 20 |TS */.}.|.static |
|00000c30| 76 6f 69 64 20 53 65 72 | 69 61 6c 52 65 63 69 65 |void Ser|ialRecie|
|00000c40| 76 65 42 79 74 65 28 76 | 6f 69 64 29 0d 7b 0d 20 |veByte(v|oid).{. |
|00000c50| 20 20 20 62 79 74 65 20 | 70 70 3b 0d 20 20 20 20 |   byte |pp;.    |
|00000c60| 53 65 72 69 61 6c 54 79 | 70 65 20 2a 70 3b 0d 09 |SerialTy|pe *p;..|
|00000c70| 65 78 74 65 72 6e 20 76 | 6f 69 64 20 69 36 30 28 |extern v|oid i60(|
|00000c80| 76 6f 69 64 29 3b 0d 0d | 20 20 20 20 70 3d 26 64 |void);..|    p=&d|
|00000c90| 65 76 69 63 65 5b 6c 61 | 74 65 73 74 4c 69 73 74 |evice[la|testList|
|00000ca0| 65 6e 26 30 78 30 66 5d | 3b 0d 0d 20 20 20 20 52 |en&0x0f]|;..    R|
|00000cb0| 41 4d 5b 30 78 39 30 5d | 3d 28 2a 70 2d 3e 67 65 |AM[0x90]|=(*p->ge|
|00000cc0| 74 66 29 28 26 70 70 2c | 20 6c 61 74 65 73 74 53 |tf)(&pp,| latestS|
|00000cd0| 61 4c 69 73 74 65 6e 26 | 30 78 30 66 29 3b 0d 09 |aListen&|0x0f);..|
|00000ce0| 52 41 4d 5b 30 78 61 34 | 5d 3d 61 3d 70 70 3b 0d |RAM[0xa4|]=a=pp;.|
|00000cf0| 09 66 6c 61 67 73 20 26 | 3d 20 7e 43 41 52 3b 0d |.flags &|= ~CAR;.|
|00000d00| 09 69 36 30 28 29 3b 09 | 2f 2a 20 52 54 53 20 2a |.i60();.|/* RTS *|
|00000d10| 2f 0d 7d 0d 0d 73 74 61 | 74 69 63 20 76 6f 69 64 |/.}..sta|tic void|
|00000d20| 20 53 65 72 69 61 6c 4c | 69 73 74 65 6e 28 76 6f | SerialL|isten(vo|
|00000d30| 69 64 29 0d 7b 0d 09 65 | 78 74 65 72 6e 20 76 6f |id).{..e|xtern vo|
|00000d40| 69 64 20 69 36 30 28 76 | 6f 69 64 29 3b 0d 09 0d |id i60(v|oid);...|
|00000d50| 09 74 72 61 70 4c 69 73 | 74 65 6e 3d 61 3b 0d 09 |.trapLis|ten=a;..|
|00000d60| 69 36 30 28 29 3b 09 2f | 2a 20 52 54 53 20 2a 2f |i60();./|* RTS */|
|00000d70| 0d 7d 0d 0d 73 74 61 74 | 69 63 20 76 6f 69 64 20 |.}..stat|ic void |
|00000d80| 53 65 72 69 61 6c 53 61 | 4c 69 73 74 65 6e 28 76 |SerialSa|Listen(v|
|00000d90| 6f 69 64 29 0d 7b 0d 09 | 53 65 72 69 61 6c 54 79 |oid).{..|SerialTy|
|00000da0| 70 65 20 2a 70 3b 0d 09 | 62 79 74 65 20 62 2c 20 |pe *p;..|byte b, |
|00000db0| 69 3b 0d 09 65 78 74 65 | 72 6e 20 76 6f 69 64 20 |i;..exte|rn void |
|00000dc0| 69 36 30 28 76 6f 69 64 | 29 3b 0d 0d 20 20 20 20 |i60(void|);..    |
|00000dd0| 62 3d 52 41 4d 5b 30 78 | 39 35 5d 3b 0d 20 20 20 |b=RAM[0x|95];.   |
|00000de0| 20 70 3d 26 64 65 76 69 | 63 65 5b 6c 61 74 65 73 | p=&devi|ce[lates|
|00000df0| 74 4c 69 73 74 65 6e 26 | 30 78 30 66 5d 3b 0d 0d |tListen&|0x0f];..|
|00000e00| 09 69 66 20 28 62 3d 3d | 30 78 33 66 29 0d 09 09 |.if (b==|0x3f)...|
|00000e10| 73 77 69 74 63 68 20 28 | 6c 61 74 65 73 74 53 61 |switch (|latestSa|
|00000e20| 4c 69 73 74 65 6e 26 30 | 78 66 30 29 20 7b 0d 09 |Listen&0|xf0) {..|
|00000e30| 09 09 63 61 73 65 20 30 | 78 66 30 3a 0d 09 20 09 |..case 0|xf0:.. .|
|00000e40| 09 09 69 66 20 28 70 2d | 3e 69 73 6f 70 65 6e 3d |..if (p-|>isopen=|
|00000e50| 3d 30 29 20 7b 0d 09 09 | 09 09 09 70 2d 3e 69 73 |=0) {...|...p->is|
|00000e60| 6f 70 65 6e 3d 31 3b 0d | 09 09 09 09 09 69 3d 28 |open=1;.|.....i=(|
|00000e70| 2a 70 2d 3e 6f 70 65 6e | 66 29 28 28 63 68 61 72 |*p->open|f)((char|
|00000e80| 20 2a 29 73 65 72 69 61 | 6c 42 75 66 66 65 72 2c | *)seria|lBuffer,|
|00000e90| 20 73 65 72 69 61 6c 50 | 74 72 2c 20 6c 61 74 65 | serialP|tr, late|
|00000ea0| 73 74 53 61 4c 69 73 74 | 65 6e 26 30 78 30 66 29 |stSaList|en&0x0f)|
|00000eb0| 3b 0d 09 09 09 09 09 73 | 65 72 69 61 6c 50 74 72 |;......s|erialPtr|
|00000ec0| 3d 30 3b 0d 09 09 09 09 | 09 52 41 4d 5b 30 78 39 |=0;.....|.RAM[0x9|
|00000ed0| 30 5d 3d 69 3b 0d 09 09 | 09 09 09 69 66 20 28 69 |0]=i;...|...if (i|
|00000ee0| 29 20 7b 0d 09 09 09 09 | 09 09 70 2d 3e 69 73 6f |) {.....|..p->iso|
|00000ef0| 70 65 6e 3d 30 3b 0d 09 | 09 09 09 09 09 28 2a 70 |pen=0;..|.....(*p|
|00000f00| 2d 3e 63 6c 6f 73 65 66 | 29 28 6c 61 74 65 73 74 |->closef|)(latest|
|00000f10| 53 61 4c 69 73 74 65 6e | 26 30 78 30 66 29 3b 20 |SaListen|&0x0f); |
|00000f20| 7d 20 7d 0d 09 20 20 20 | 20 09 09 69 66 20 28 70 |} }..   | ..if (p|
|00000f30| 2d 3e 66 6c 75 73 68 66 | 29 20 28 2a 70 2d 3e 66 |->flushf|) (*p->f|
|00000f40| 6c 75 73 68 66 29 28 6c | 61 74 65 73 74 53 61 4c |lushf)(l|atestSaL|
|00000f50| 69 73 74 65 6e 26 30 78 | 30 66 29 3b 0d 09 09 09 |isten&0x|0f);....|
|00000f60| 09 62 72 65 61 6b 3b 0d | 09 09 09 63 61 73 65 20 |.break;.|...case |
|00000f70| 30 78 36 30 3a 0d 09 09 | 09 09 69 66 20 28 70 2d |0x60:...|..if (p-|
|00000f80| 3e 69 73 6f 70 65 6e 3d | 3d 30 29 20 7b 0d 09 09 |>isopen=|=0) {...|
|00000f90| 09 09 09 70 2d 3e 69 73 | 6f 70 65 6e 3d 31 3b 0d |...p->is|open=1;.|
|00000fa0| 09 09 09 09 09 28 2a 70 | 2d 3e 6f 70 65 6e 66 29 |.....(*p|->openf)|
|00000fb0| 28 4e 55 4c 4c 2c 20 30 | 2c 20 6c 61 74 65 73 74 |(NULL, 0|, latest|
|00000fc0| 53 61 4c 69 73 74 65 6e | 26 30 78 30 66 29 3b 0d |SaListen|&0x0f);.|
|00000fd0| 09 09 09 09 09 66 6f 72 | 20 28 69 3d 30 3b 20 69 |.....for| (i=0; i|
|00000fe0| 3c 73 65 72 69 61 6c 50 | 74 72 3b 20 69 2b 2b 29 |<serialP|tr; i++)|
|00000ff0| 0d 09 09 09 09 09 09 28 | 2a 70 2d 3e 70 75 74 66 |.......(|*p->putf|
|00001000| 29 28 73 65 72 69 61 6c | 42 75 66 66 65 72 5b 69 |)(serial|Buffer[i|
|00001010| 5d 2c 20 6c 61 74 65 73 | 74 53 61 4c 69 73 74 65 |], lates|tSaListe|
|00001020| 6e 26 30 78 30 66 29 3b | 0d 09 09 09 09 09 73 65 |n&0x0f);|......se|
|00001030| 72 69 61 6c 50 74 72 3d | 30 3b 20 7d 0d 09 09 09 |rialPtr=|0; }....|
|00001040| 09 69 66 20 28 70 2d 3e | 66 6c 75 73 68 66 29 20 |.if (p->|flushf) |
|00001050| 28 2a 70 2d 3e 66 6c 75 | 73 68 66 29 28 6c 61 74 |(*p->flu|shf)(lat|
|00001060| 65 73 74 53 61 4c 69 73 | 74 65 6e 26 30 78 30 66 |estSaLis|ten&0x0f|
|00001070| 29 3b 0d 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |);.....b|reak;...|
|00001080| 09 63 61 73 65 20 30 78 | 65 30 3a 0d 09 09 09 09 |.case 0x|e0:.....|
|00001090| 70 2d 3e 69 73 6f 70 65 | 6e 3d 30 3b 0d 09 09 09 |p->isope|n=0;....|
|000010a0| 09 28 2a 70 2d 3e 63 6c | 6f 73 65 66 29 28 6c 61 |.(*p->cl|osef)(la|
|000010b0| 74 65 73 74 53 61 4c 69 | 73 74 65 6e 26 30 78 30 |testSaLi|sten&0x0|
|000010c0| 66 29 3b 0d 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |f);.....|break;..|
|000010d0| 09 09 64 65 66 61 75 6c | 74 3a 0d 09 09 09 09 44 |..defaul|t:.....D|
|000010e0| 65 62 75 67 53 74 72 28 | 22 5c 70 55 6e 69 6d 70 |ebugStr(|"\pUnimp|
|000010f0| 6c 65 6d 65 6e 74 65 64 | 20 53 65 72 69 61 6c 20 |lemented| Serial |
|00001100| 43 6f 6d 6d 61 6e 64 22 | 29 3b 20 62 72 65 61 6b |Command"|); break|
|00001110| 3b 0d 09 09 09 7d 0d 0d | 09 6c 61 74 65 73 74 4c |;....}..|.latestL|
|00001120| 69 73 74 65 6e 3d 74 72 | 61 70 4c 69 73 74 65 6e |isten=tr|apListen|
|00001130| 3b 0d 09 6c 61 74 65 73 | 74 53 61 4c 69 73 74 65 |;..lates|tSaListe|
|00001140| 6e 3d 62 3b 0d 0d 09 69 | 36 30 28 29 3b 09 2f 2a |n=b;...i|60();./*|
|00001150| 20 52 54 53 20 2a 2f 0d | 7d 0d 0d 73 74 61 74 69 | RTS */.|}..stati|
|00001160| 63 20 76 6f 69 64 20 46 | 6c 6f 70 70 79 52 65 61 |c void F|loppyRea|
|00001170| 64 79 54 72 61 70 28 76 | 6f 69 64 29 0d 7b 0d 20 |dyTrap(v|oid).{. |
|00001180| 20 20 20 65 78 74 65 72 | 6e 20 76 6f 69 64 20 69 |   exter|n void i|
|00001190| 36 30 28 76 6f 69 64 29 | 3b 0d 09 0d 09 61 20 3d |60(void)|;....a =|
|000011a0| 20 30 78 30 31 3b 0d 09 | 66 6c 61 67 73 20 26 3d | 0x01;..|flags &=|
|000011b0| 28 7e 4e 45 47 2b 5a 45 | 52 29 3b 0d 09 69 36 30 |(~NEG+ZE|R);..i60|
|000011c0| 28 29 3b 09 2f 2a 20 52 | 54 53 20 2a 2f 0d 7d 0d |();./* R|TS */.}.|
|000011d0| 0d 0d 0d 73 74 61 74 69 | 63 20 62 79 74 65 20 53 |...stati|c byte S|
|000011e0| 65 72 69 61 6c 44 75 6d | 6d 79 28 76 6f 69 64 29 |erialDum|my(void)|
|000011f0| 20 7b 20 72 65 74 75 72 | 6e 20 32 3b 20 7d 0d 00 | { retur|n 2; }..|
|00001200| 00 00 01 00 00 00 01 0e | 00 00 00 0e 00 00 00 1e |........|........|
|00001210| 63 68 20 73 65 72 69 61 | 6c 20 64 65 76 69 63 65 |ch seria|l device|
|00001220| 20 77 69 74 68 20 61 64 | 64 72 65 73 73 20 63 75 | with ad|dress cu|
|00001230| 08 53 65 72 69 61 6c 2e | 63 00 02 00 00 00 50 61 |.Serial.|c.....Pa|
|00001240| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 02 |rtSITx..|........|
|00001250| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 aa 13 a0 b9 00 00 | 00 00 00 00 01 2c 64 64 |........|.....,dd|
|00001280| 20 6d 6f 72 65 20 74 68 | 61 6e 20 4d 41 58 54 52 | more th|an MAXTR|
|00001290| 41 50 53 20 74 72 61 70 | 73 2e 1c 41 6c 6c 20 6d |APS trap|s..All m|
|000012a0| 65 6d 6f 72 79 20 73 6c | 6f 74 73 20 61 72 65 20 |emory sl|ots are |
|000012b0| 66 69 6c 6c 65 64 2e 2f | 41 74 74 65 6d 70 74 20 |filled./|Attempt |
|000012c0| 74 6f 20 46 72 65 65 4d | 65 6d 6f 72 79 20 6f 6e |to FreeM|emory on|
|000012d0| 20 61 20 62 6c 6f 63 6b | 20 6e 6f 74 20 61 6c 6c | a block| not all|
|000012e0| 6f 63 61 74 65 64 2e 26 | 50 72 6f 74 65 63 74 65 |ocated.&|Protecte|
|000012f0| 64 20 6d 65 6d 6f 72 79 | 20 68 61 73 20 62 65 65 |d memory| has bee|
|00001300| 00 00 00 0a 00 00 11 5a | 00 bc 00 00 00 00 00 00 |.......Z|........|
|00001310| 01 00 00 00 01 0e 00 00 | 00 0e 00 00 00 1e 00 26 |........|.......&|
|00001320| 03 c6 09 8e 00 00 00 1c | 00 1e ff ff 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+